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MODULE STRSFIND_FIRST ( ! Find first character in or not in set 
IDENT = '1-002' ! File: STRFINDFI.832 Edit: RKR1002 
) =z 


1 Oh ie3-38 
LIBRTL.SRC R 


comm hd 
i- 


V4.0-74 Pa 1 
STAF INDE 1 68231 - 


BEGIN 


' 

i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeerereeeenereeteneeeeneeneneeeeeeeeeeeee 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 

i: ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

'® COPIES THEREOF MAY NOT BE PROV HER I 

'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


tr 
® 
® 
® 
*® 
® 
* 
® 
® 
* 
ie TRANSFERRED. ‘ 
® 
® 
® 
® 
® 
® 
tr 
& 
* 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
it AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 
is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 
ie 


'® 
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I 
H NOT SUPPLIED BY DIGITAL. 
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8 leuateunenteeneeerenteennentenereetrenrertentertrententnnnnnntentnnetnetents 
8 ! 
00 '¢¢ 
33 } FACILITY: String support Library 
00 i ABSTRACT: This module contains procedures to find the first character 
B8e : in a set or not in a set. 
44 ENVIRONMENT: User mode, AST reeentrant 
004 ; AUTHOR: R. Reichert, CREATION DATE: 26-July-1982 
004 MODIFIED BY: 
004 i 1-00 - Original. RKR eat og 
3 } 1-002 - Code improvements. RKR 24-Nov-1982. 
bb i <BLF /PAGE> 


8 
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; 30 B88 1} : 
3 1 1 ! SWITCHES: : 
; § 5 i! ° 
3 4 : 1 SWITCHES ADDRESSING_MODE 3 
: 5 ¢ ! (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); ; 
: : 8 1 : 
H 8 Q } LINKAGES : 
3 o9 59 ! REQUIRE "RTLIN: STRLNK'; ! Linkage to STRSANALYZE_SDESC_R1 ‘ 
3 6¢ 45 1 ! TABLE OF CONTENTS: : 
; 6 oe ° 
; 666 47 1 3 
3; 6 48 1 FORWARD ROUTINE 3 
; © 49 1 STRSFIND_FIRST_IN_SET, ! Find first occurence of character ; 
s 67 0250 1 ! in a set of characters ; 
>; «68 0251 1 STRSFIND_FIRST_NOT_IN_SET ; ! Find first occurence of a character ; 
; «689 0 26 1 ! not in a set of characters. : 
; 0255 1 ; 
ae 0254 1! 3 
2 8 55 1 ! INCLUDE FILES: ; 
EG 2 1! : 
3; 7 0257 1 § 
. 0 28 1 REQUIRE *RILIN:RTLPSECT? ; ' Declare PSECTS code 3 
3 76 0353 1 REQUIRE ‘RTLIN:STRMACROS'; ' use shrine macros to write code 3 
3 a4 : $ : LIBRARY ‘RTLSTARLE'; ! STARLET Library for macros and symbols : 
x oe 1271 1! 3 
; 1 i 1 ! MACROS: NONE 3 
;. BF 1273 1! 3 
: He 1274 1 3 
: 1275 1! $ 
: se 1276 1 ! EQUATED SYMBOLS: NONE ; 
; 5 1277 1! : 
3 B6 1278 #1 3 
3 7 1279 1! : 
: 88 1280 1 ! PSEC’ DECLARATIONS 3 
; 8 1 4 1! 3 
; 90 1 ¢ 1 3 
; O91 1285 1 DECLARE_PSECTS (STR); 3 
$ 4 1 1 $ 
rs 1285 1! 3 
; 94 1 1 ! OWN STORAGE: NONE : 
; 695 ! Hi ; : : 
BBD : 
3 98 1290 1 ! EXTERNAL REFERENCES : 
; 1291 1! 3 
; 100 1292 1! NONE : 


TRSFIND_FIRST 16-Sep-1984 01:38:01 AX-11 Bliss-32 v4.0-74 

37885 1 ~3007 138% 94:38:81 LIBRTL.SRC STheNOST B92: =( 
3 } § 1 33 1 GLOBAL ROUTINE STRSFIND_FIRST_IN_SET ( ! Find first character in string ; 
- 3 1294 1 ! that eccurs in set . 
% 1295 1 STRING, ! pointer to string descriptor : 
; 105 1 39 1 SET_OF CHARS ! pointer to string descriptor which contains . 
§ 198 1297 1 ' set of characters : 
; 10 1 38 1 : 
; 108 1 1 Ys: ; 
; 109 1500 1 !4+ ; 
; 139 ! 4 : FUNCTIONAL DESCRIPTION: : 
: 11g 1 8g 1! This routine searches STRING character by character, left to . 
‘. 3 1 Be 1! rt comparing each ener acter selected to every character in ; 
: 116 1305 1! SET OF _CHARS. @When a match is found, the process stops and : 
: 6115 1 06 1! INDEX Ts set to the position in STRING where the match was 

: «116 1307 1! found. If no match is found, 0 is returned. 

; 17 1308 1! If either STRING gr SET_OF_CHARS is of zero length, index 

; #118 1309 1! returned will be 0. 

: #119 1310 1! 

: ! 9 : 1 ! CALLING SEQUENCE: 

el § 1 ig 1! INDEX.wl.v = STRSFIND_FIRST_IN_SET ( STRING1.rt.dx, 

3 } ; 1 1 : SET_OF_CHARS.rt.dx ) 

: : ? \ 1 ! FORMAL PARAMETERS: 

; , i ! \8 : STRING] .rt.dx pointer to string descriptor 

3; 129 1320 1! SET_OF _CHARS.rt.dx pointer to a string of characters which 

s 1350 1321 1! constitutes the se? of characters of 

We 1 ¢ 1! interest. 

3; 1 ¢ 1 1! 

3 1324 1 ! IMPLICIT INPUTS: 

—F 1325 1! 

s 155 1326 1! NONE 

3; 136 1327 1! 

s 137 1328 1 ! IMPLICIT OUTPUTS: 

3 138 1 $3 1! 

; 139 1330 1! NONE 

: 140 1331 1! 

: «161 1 § 1 ! ROUTINE VALUE: 

3 re 1 1! 

: 14 1334 1! INDEX.wl.v Position in STRING where a match was 

3 61446 1339 3 f found, else 0. 

3 «6145 1 § . 7 

3 108 } 5 : SIDE EFFECTS: 

: 148 i } | May signal STRS$_ILLSTRCLA on bad string class 

; 150 1341 1 !<<- 

; 13 ! § BEGIN 

3 138 1344 MAP STRING : REF BLOCK C ,BYTE J, 

: 154 1345 SET_OF_CHARS : REF BLOCK C ,BYTE J; 

; 155 1 #6 

3 128 j BUILTIN 

ae. 1 3 SCANC; 

; 6158 1 


8 
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76 i Set a 1 bit in each character position in SCAN_TABLE that corresponds 
77 to a character in SET_OF_CHARS. 


159 LOCAL 

160 ONE : INITIAL (1), ! Constant 

161 BYTES_REMAINING, ! After SCANC 

196 MATCH BYTE, ! After SCANC 

16 4 SCAN TABLE : VECTOR (256, BYTE), |! Table for SCANC operation 
164 5 STR_CEN : WORD, { Length of STRING 

165 § SiR _ARD ° ! address of string 

168 5 SET_LEN : WORD, ! Length of SET_OF_CHARS 

\of 28 SET_ADDR : REF VECTOR C, BYTES; ! address of SET_OF_CHARS 
169 60 '¢ 

1%6 $) ; Initialize SCAN_TABLE to zeroes. 

ve 68 CHSFILL (0, 256, SCAN_TABLE); 

i an 

175 08 ! Extract the length and starting address of STRING and SET_OF_CHARS. 
178 44 Special-case zero length strings. 

178 69 SSTRSGET_LEN_ADDR ( STRING, STR_LEN, STR_ADDR ) ; 

179 20 SSTRSGET-LEN-ADDR ( SET_OF_CHARS, SET_LEN, SET_ADDR ) ; 

181 % IF .STR_LEN EQL O OR 

ise 7 ~SET_LEN EQL THEN RETURN O ; 

18 74 

184 75 + 

185 

186 

187 

188 

189 


79 " -DECR 1 FROM .SET_LEN - 1 TO 0 


ce ce ec ee ce ee ee ee ee ee ee ee ce ee ce ee ee ee ee ee ed ed ed ed 


380 
130 3) SCAN_TABLE C .SET_ADDR C .1J J] =1; 
136 e§ i Find out if one of the characters in SET_OF_CHARS appears in 
137 Se STRING. 
195 386 SCANC ( STR_LEN, .STR_ADDR, SCAN_TABLE, ONE ; BYTES_REMAINING, 
136 388 MATCH_BYTE ); 
Hb 83 IF .BYTES_REMAINING NEQ 0 ! If scanc ran off end of string 
4 id RETURN (.MATCH_BYTE - .STR_ADDR + 1); 
4 38 RETURN 0; 

94 END ; ! Procedure STRSFIND_FIRST_IN_SET 


TBEAE Tague 
.EXTRN STRSANALYZE_SDESC_R1 
-PSECT _STRSCODE,NOWRT, SHR, PIC,2 

00FC 00000 -ENTRY STRSFIND_FIRST_IN_SET, Save R2,R3,R4,R5,R6,-; 1293 


57 000000006 00 9€ 00002 MOVAB STRSANALYZE_SDESC_R1, R7 : 


Se Re eae th ete 


« <2 
TRSF IND FIRST 16-Sep :3 AX-11 Bliss-32 V4.0-74 
31885 18:8 Sep 7138 9}: 28: 83 LIBRTL.SRCIS TRF IN bP1 88231 
SE FFOO ‘ 3 09 MOVAB 350(SP). SP en 
0100 = &F 00 6E : Be MOVCS #0. (SP), #0, #256, SCAN_TABLE : 1348 
5 eo A 1 MOVL TRING, “f° : 
83 ie AS B? 1D CMPB (RON : - 
09 #1A | BGTRU :. ; 
53 60 8 MOVW (RO), STR_LEN : 
4 04 AO D 3 MOVL  4(ROS, STR_ADDR : 
05 1 A BRB 2$ : 
: 16 C 1$ JSB STRSANALYZE _SDESC_R1 : 
5 0 20 E mMOVa RO, STR : 
08 A p 2$ MOVL Ef _OF “THARS RO : 1370 
0 AO 91 3 CMPB (RO),~ : 
09 1A 000 BGTRU 3$ ; 
52 60 80 00038 MOVW (RO), SET : 
1 04 Aad DO 000 MOVL 4(ROS, SET" FDDR : 
05 110 04 BRB 4$ : 
: 16 00044 3$: JSB STRSANALYZE_SDESC_R1 : 
52 9 D 00046 MOVL RO, SET_LEN ; 
53 «2B 0904 4$: TSTW = STRLL + 1372 
26 13 00048 BEQL «= 7$ ; 
8 004d TSTW SET_LEN + 1373 
: 1 0004 BEQL ; 
52 3¢ 0051 MOVZWL SET_LEN, I + 1381 
08 17 00054 BRB : 
50 6241 9A 00056 5S: MOVZBL (CSET ADDR] : 
6€40 01 90 0005A MOVB 1, _SCAN_ PORLECROD ; 
F5 3 F4 OOOSE 6S: SOBGEQ 5$ : 
56 6E 64 53 2a 00061 SCANC le LEN, (STR_ADDR), SCAN_TABLE, ONE + 1386 
50 D3 0066 TSTL YTES_REMAINING : 1389 
09 13 00068 BEQL : 
51 54 C2 O006A SUBL2 STR_ADDR, R1 + 1391 
51 06 006D INCL RI : 
50 51 OD Bp be. MOVL R1, RO ; 
04 000 RET : 
50 04 9007 7$ CLRL ~— RO > 1394 
04 0007 RET : 


; Routine Size: 118 bytes, Routine Base: _STRSCODE + 0000 
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nN 8 
16-Sep-1984 01:38:01 AX=-11 BLi 
1 30071382 HAR LIBRTL.SR 
GLOBAL ROUTINE STRSFIND_FIRST_NOT_IN_SET ( ! — first character in 
! gtring that does not occur 


! ins 
STRING, ! pointer to oer descriptor 
SET_OF CHARS pointer to string descriptor which contains 


! set of characters 
a ae 


!o4 


i FUNCTIONAL DESCRIPTION: 


This routine yoareser STRING character by character, left to 
ort conser ng each character selected fo verre character in 
SET_OF_CHARS. When @ selected character is not found in 

SET_OF CHARS, the process stops and INDEX is set to the position 
in STRING where the non-match was found. If all characters in 
STRING match some character in SET_OF_CHARS, 0 is returned. 


If STRING is if zero length, index will be 1 since anythin 
in set sporstevlerty Ist element) will not be found in STRING. 
If length of SET_OF_CHARS is zero, index will be zero since 


i 
nothing’ can always be found in STRING. 
CALLING SEQUENCE: 


INDEX.wl.v = STRSFIND_FIRST_NOT_IN_SET ( STRING. rt.dx, 
SET_OF .CHARS.rt.dx ) 


FORMAL PARAMETERS: 


STRING. rt.dx pointer to string descriptor 

SET_OF _CHARS.rt.dx pointer to a string of characters which 
pense ttutes the set of characters of 
nterest. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


INDEX.wl.v Position in STRING where a non-match was 
found, else 0. 


SIDE EFFECTS: 
May signal STRS_ILLSTRCLA on bad string class 


” BEGIN 
MAP STRING : REF BLOCK C .BYTE J, 


9 


i ZBTTES _PERAINING NEQ 0 ! If span ran off end of string 
RETURN (.NON_MATCH_BYTE = .STR_ADDR + 1); 

RETURN 0; 

END ; 


STRSFIND_FIRST 16-5e -1984 :38:01 AX-11 Bliss-32 V4.0-74 Page 7 
1-002 1 ~Sep-19 4 93:28 ib CYARTL SRE ISTRE LINDE 189251 . (4) 
; ° i ¢ SET_OF_CHARS : REF BLOCK C ,BYTE J; 

> 264 1454 BUILTIN 

3 €0> 1455 SPANC; 

: 266 14 § 

; 267 14 LOCAL 

> 268 1458 ONE : INITIAL (1), ' Constant 

: 269 1459 BYTES REMAINING, ' After SPANC 

; 270 1460 NON MATCH BYTE ! After SPANC 

3; eri 1461 SPAR _TABLE : VECTOR (256, BYTE], ! Table for SPANC operation 
: 2? 1466 STR_CEN : WORD, { Length of STRING 

ER is 146 STR_ADD ' address of string 

3: 274 1464 SET_LEN : WORD, ! Length of SET_OF_CHAR 

3 ie Me + SET_ADDR : REF VECTOR C,BYTEJ; ! address Of SET_OF_CHARS 

s a 1269 + 

: 278 1468 ! Initialize SPAN_TABLE to zeroes. 

: 279 1469 te 

: 280 1470 CHSFILL (0, 256, SPAN_TABLE); 

; 281 1471 

; o¢ ieee '+ 

: 28 147 ! Extract the length and starting address of STRING and SET_OF_CHARS. 
3 spe 1o28 : Special case zero Length strings. 

; 286 1476 SSTRSGET_LEN_ADDR ( STRING, STR_LEN, STR_ADOR ) ; 

H +44 Vert SSTRSGET_LEN_ADDR ( SET_OF_CHARS, SET_LER, SET_ADDR ) ; 

: $89 1479 IF .SET_LEN EQL 0 THEN RETURN O ; 

: $30 1480 IF .STR_LEN EQL 0 THEN RETURN 1 ; 

; 291 1481 

; =e 186 '¢ 

>; 2 148 ! Set a 1 bit in each character position in SPAN_TABLE that corresponds 
> 294 1484 ! to a character in SET_OF_CHARS. 

; a 1485 te 

; 296 1486 DECR I FROM .SET_LEN - 1 T0 0 

; 297 1487 

; $36 e568 ca SPAN_TABLE C .SET_ADDR C .IJ J =1; 

3 $60 1490 ! Find out if one of the characters in SET_OF_CHARS does not appear in 
s 303 169) : STRING. 

; 08 1298 SPANC ( STR_LEN, .STR_ADDR, SPAN_TABLE, ONE ; BYTES_REMAINING 

; 304 1494 NON_MATCH_BYTE 5; 

: 03 1495 

$ 14 

: 307 14 

: 308 14 

; 309 14 

; 310 15 

. ae 15 


! Procedure STRSFIND_FIRST_NOT_IN_SET 


0OFC 00000 -ENTRY STRSEIND_FIRST_NOT_IN_SET. Save R2,R3,.R4,.- ; 1395 
R5,R6,R ; 


n” 
— 
mm 
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3; Routine Size: 122 bytes, Routine Base: _STRSCODE + 0076 


1 

14-Sep-1 LIBRTL.SRCJSTREINDFI. 8 2:1 (4) 
7 000000906 00 3 H MOVAB STRSANALYZE, SDESC_R1, R7 ; 

Weed oj 5 MOV ONE + 1449 

0100 8F 00 6E 00 Be i MOVCS #0, (SP), #0, #256, SPAN_TABLE : 1470 

50 4 AC 00 0001 MOVL TR NG, “2° t 1476 
02 8 AO Bf 1D CMPB tt : 
09 1A 1 BGTRU is” : 
53 6 80 3 MOVW (RO), STR_LEN : 
54 06 AO D 6 MOVL  4(ROS, STR_ADDR : 
05 11 A BRB 2$ : 
5 16 C 1$ JSB STRSANALYZE _SDESC_R1 : 
53 0 7D E mMOovVa = RO : 

50 08 AC po 031 28: MOVL Ef eF “Hans. RO t 1477 
02 03 AO 9 00 5 CMPS CROS : 
09 1A 00039 BGTRU 3$ ; 
52 60 B80 0003B MOVW (RO), SET_LEN : 
51 04 AO 00 000 ; MOVL  4(ROS, SET_ADDR : 
05 11 0004 BRB 4$ ; 
67 16 00044 3$ JSB STRSANALYZE_SDESC_R1 : 
52 50 D 0046 MOVL 0, SET_LEN™ ; 

52 BS 00049 4$: TSTW Ef_L + 1479 
2A 13 00048 BEQL ; 

3 BS 00040 TSTW STR_LEN + 1480 
04 if O04F BNEQ 6 5$ : 
50 01 pO 00051 MOVL #1, RO : 
ge 00054 RET 3 

52 52 3¢ 90055 5$: MOVZWL SET_LEN, I + 1488 
08 11 00058 BRB : 
50 6241 9A OO05A 6S: MOVZBL (DCSE ADDR], RO : 
6E40 01 90 0005 MOVB 1, SPAN_TABLECRO] : 
F5 38 F4 906 7$ SOBGEQ : 

a5 6E 64 53 2B 0006 SPANC i. LEN, (STR_ADDR), SPAN_TABLE, ONE + 1493 

50 D5 O006A TSTL BYTES _REMAINING + 1496 
09 1 9006¢ BEQL : 

51 54 C2 00GE SUBL2 STR_ADDR, R1 : 1498 
51 D6 00071 INCL RI : 
50 51 00 00073 MOVL 1, RO : 
04 0076 RET : 

50 04 00077 8$ CLRL = RO > 1501 
04 00079 RET ; 

va 
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'End of module 


PSECT SUMMARY 
Bytes Attributes 
240 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, 


Library Statistics 


cunanene Symbols -<------ Pages 
Total Loaded Percent Mapped 
~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 4 0 581 


COMMAND QUALIFIERS 


aa ce erect, Serco aed aati IE MSRC$:STRF INDF I /UPDATE=(ENHS: STRF INDF I 


240 code $ 0 data bytes 


Lines/CPU Min: 4 
Lexemes/CPU-Min: 5 873 
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